home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 March / Ahoy_Magazine_87-03_1987_Double_L.d64 / Decomp Demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  33 lines
  1. 0 rem *********************************
  2. 1 rem *****  decompressor demo    *****
  3. 2 rem ***** by scott miller petty *****
  4. 3 rem ***** 407 b. smith avenue   *****
  5. 4 rem ***** chapel hill, n.c.     *****
  6. 5 rem *****               27514   *****
  7. 6 rem ***** (919)-967-8522        *****
  8. 7 rem *********************************
  9. 10 ifa>0then25
  10. 15 poke53280,12:poke53281,15:print"":poke56,126:poke55,244:clr
  11. 20 ifa=0thena=1:print"[147]":load"decompressor.o",8,1
  12. 25 t$="[151]            decompressor demo           ":printt$
  13. 30 ifa=1thena=2:poke53265,peek(53265)or16:input"filename of picture ";f$
  14. 35 input"load address of pic ";la
  15. 40 print"   [151] hit + key to change border color."
  16. 45 print" [151] hit - key to change background color."
  17. 50 print"   [151] hit any other key to exit hires. ":fori=0to1000:next
  18. 55 print"          hit run/stop to end [146]"
  19. 60 gosub115:gosub100:poke53265,peek(53265)or16:d1=49152:d2=d1+26
  20. 65 sysd1,f$,la,52224:r1=peek(249)+256*peek(250)+6
  21. 70 sysd2,r1,55296:r2=peek(249)+256*peek(250)+6:sysd2,r2,57344
  22. 75 r3=peek(249)+256*peek(250)+6:poke53281,peek(r3+1):poke53280,peek(r3+2)
  23. 80 wait198,15:gett$:ift$="+"thenbo=bo+1:ifbo>15thenbo=0
  24. 85 ift$="-"thenbg=bg+1:ifbg>15thenbg=0
  25. 90 ift$="+"ort$="-"thenpoke53281,bg:poke53280,bo:goto80
  26. 95 gosub115:wait198,15:gett$:gosub100:goto80
  27. 100 rem ******* change banks *********
  28. 105 poke53272,56:poke53265,peek(53265)or32:poke53270,peek(53270)or16
  29. 110 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0:return
  30. 115 rem ****** normal screen ********
  31. 120 poke53272,21:poke53265,peek(53265)and223:poke53270,peek(53270)and239
  32. 125 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3:return
  33.